home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / misc / volume25 / dvi / patch02 next >
Encoding:
Text File  |  1991-11-11  |  39.9 KB  |  1,393 lines
  1. Newsgroups: comp.sources.misc
  2. From: parag@hpsdeb.sde.hp.com (Parag Patel)
  3. Subject:  v25i039:  dvi - C++ DVI filter for HP LaserJets, Patch02
  4. Message-ID: <1991Nov10.195710.22829@sparky.imd.sterling.com>
  5. X-Md4-Signature: 32453f24e560e533d66a838e9ea184a7
  6. Date: Sun, 10 Nov 1991 19:57:10 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: parag@hpsdeb.sde.hp.com (Parag Patel)
  10. Posting-number: Volume 25, Issue 39
  11. Archive-name: dvi/patch02
  12. Environment: C++, LaserJet
  13. Patch-To: dvi: Volume 19, Issue 64-66
  14.  
  15. This is a mainly a bug-fix release, but adds one new feature.  dvi can
  16. now run a MakeTeXPK script to create missing fonts at on-the-fly, just
  17. like Tomas Rokicki's fine dvips package from labrea.stanford.edu.  A
  18. version of MakeTeXPK that's used within HP is included, but will
  19. doubtless require some hacking.
  20.  
  21.  From the README:
  22.  
  23. 1.8     use DVIFONTPATH env var instead of FONTPATH to search for fonts
  24.         try running a script which runs Metafont to generate fonts on the fly
  25.                 (this only works under Unix right now)
  26.         LaserJet+ cannot really handle 8-bit data - back to the old code
  27.         dvi -v runs properly when strings are put into read-only memory
  28.         Set -DUSE_DIRENT in the Makefile if you have <dirent.h> and not
  29.                 <ndir.h> or <sys/dir.h>
  30.         dvi compiles and runs using C++ 3.0 now
  31.  
  32. Many thanks to all the folks who sent in bug reports!
  33.  
  34.     -- Parag
  35.  
  36. ---- Cut Here and feed the following to sh ----
  37. #!/bin/sh
  38. # This is a shell archive (produced by shar 3.49)
  39. # To extract the files from this archive, save it to a file, remove
  40. # everything above the "!/bin/sh" line above, and type "sh file_name".
  41. #
  42. # made 10/22/1991 17:43 UTC by parag@hp-ses
  43. # Source directory /u1/parag/tools/tex/dvi
  44. #
  45. # existing files will NOT be overwritten unless -c is specified
  46. #
  47. # This shar contains:
  48. # length  mode       name
  49. # ------ ---------- ------------------------------------------
  50. #  34592 -rw-r--r-- patch-1.7-1.8
  51. #   2396 -r-xr-xr-x MakeTeXPK
  52. #
  53. # ============= patch-1.7-1.8 ==============
  54. if test -f 'patch-1.7-1.8' -a X"$1" != X"-c"; then
  55.     echo 'x - skipping patch-1.7-1.8 (File already exists)'
  56. else
  57. echo 'x - extracting patch-1.7-1.8 (Text)'
  58. sed 's/^X//' << 'SHAR_EOF' > 'patch-1.7-1.8' &&
  59. *** tmp/Makefile    Mon May 20 19:05:45 1991
  60. --- Makefile    Tue Oct 22 10:20:07 1991
  61. ***************
  62. *** 1,5
  63. X  # Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  64. ! # $Header: Makefile,v 1.24 91/05/20 20:05:44 hmgr Exp $
  65. X  
  66. X  CXX = CC
  67. X  .SUFFIXES: .C
  68. X
  69. --- 1,5 -----
  70. X  # Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  71. ! # $Header: Makefile,v 1.28 91/10/22 11:20:05 hmgr Exp $
  72. X  
  73. X  CXX = CC
  74. X  .SUFFIXES: .C
  75. ***************
  76. *** 10,15
  77. X  # -DBSD            for BSD derivatives
  78. X  # -DMSDOS        for Zortech C++ - also run "make msdos-files"
  79. X  # -DFREE_TAKES_CHAR    if you have a free(char*) instead of free(void*)
  80. X  # -DHP2686_FPATH=/path1:/path2:...
  81. X  #            to modify the default font search path
  82. X  CFLAGS = -g
  83. X
  84. --- 10,17 -----
  85. X  # -DBSD            for BSD derivatives
  86. X  # -DMSDOS        for Zortech C++ - also run "make msdos-files"
  87. X  # -DFREE_TAKES_CHAR    if you have a free(char*) instead of free(void*)
  88. + # -DUSE_DIRENT        use <dirent.h> instead of <ndir.h> or <sys/dir.h>
  89. + #
  90. X  # -DHP2686_FPATH=/path1:/path2:...
  91. X  #    to modify the default font search path for your system
  92. X  #
  93. ***************
  94. *** 11,17
  95. X  # -DMSDOS        for Zortech C++ - also run "make msdos-files"
  96. X  # -DFREE_TAKES_CHAR    if you have a free(char*) instead of free(void*)
  97. X  # -DHP2686_FPATH=/path1:/path2:...
  98. ! #            to modify the default font search path
  99. X  CFLAGS = -g
  100. X  LIBS = -lm
  101. X  
  102. X
  103. --- 13,25 -----
  104. X  # -DUSE_DIRENT        use <dirent.h> instead of <ndir.h> or <sys/dir.h>
  105. X  #
  106. X  # -DHP2686_FPATH=/path1:/path2:...
  107. ! #    to modify the default font search path for your system
  108. ! #
  109. ! # -DMF_SCRIPT=\"script\"
  110. ! #    where the usage is: script dpi bdpi magnification [mode]
  111. ! #    script tries to build the needed font on-the-fly
  112. ! #    you can use the "MakeTeXPK" script that comes with the dvips package
  113. ! #
  114. X  CFLAGS = -g
  115. X  LIBS = -lm
  116. X  
  117. ***************
  118. *** 19,25
  119. X      util.C global.C stack.C dirs.C dvi.C font.C readfont.C gffont.C \
  120. X      pkfont.C bitvec.C hp2684.h hp33440.h hp2686.h defs.h extern.h \
  121. X      dirs.h font.h dev.h darray.h boolean.h bitvec.h \
  122. !     ljdump.c
  123. X  
  124. X  OBJS = main.o dev.o hp2686.o hp33440.o hp2684.o util.o global.o stack.o \
  125. X      dirs.o dvi.o font.o readfont.o gffont.o pkfont.o bitvec.o
  126. X
  127. --- 27,33 -----
  128. X      util.C global.C stack.C dirs.C dvi.C font.C readfont.C gffont.C \
  129. X      pkfont.C bitvec.C hp2684.h hp33440.h hp2686.h defs.h extern.h \
  130. X      dirs.h font.h dev.h darray.h boolean.h bitvec.h \
  131. !     ljdump.c MakeTeXPK
  132. X  
  133. X  OBJS = main.o dev.o hp2686.o hp33440.o hp2684.o util.o global.o stack.o \
  134. X      dirs.o dvi.o font.o readfont.o gffont.o pkfont.o bitvec.o
  135. *** tmp/README    Thu May 23 10:45:10 1991
  136. --- README    Tue Oct 22 10:42:57 1991
  137. ***************
  138. *** 1,4
  139. ! $Header: README,v 1.15 91/05/23 11:45:11 hmgr Exp $
  140. X  
  141. X  Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  142. X  You can do what you wish with this as long as
  143. X
  144. --- 1,4 -----
  145. ! $Header: README,v 1.22 91/10/22 11:42:54 hmgr Exp $
  146. X  
  147. X  Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  148. X  You can do what you wish with this as long as
  149. ***************
  150. *** 59,64
  151. X  You will have to define -DMSDOS or -DBSD in the Makefile if you are on
  152. X  those systems.  My Sparc also needed -DFREE_TAKES_CHAR.
  153. X  
  154. X  Use "make ljdump" to build the "ljdump" program.  This is useful for
  155. X  debugging dvi by converting PCL to a semi-human-readable dump.
  156. X  
  157. X
  158. --- 59,75 -----
  159. X  You will have to define -DMSDOS or -DBSD in the Makefile if you are on
  160. X  those systems.  My Sparc also needed -DFREE_TAKES_CHAR.
  161. X  
  162. + You can make dvi run a script to build missing fonts on the fly.  Add
  163. + the -DMF_SCRIPT="script" definition in the Makefile if you want this.
  164. + The script is run as "script dpi bdpi magnification [mode]".
  165. + 
  166. + You can use the "MakeTeXPK" script that comes from the fine dvips
  167. + package by Tomas Rokicki at Stanford University.  dvips, which converts
  168. + DVI output to PostScript, may be ftp-ed from labrea.stanford.edu.  An
  169. + internal-HP version of MakeTeXPK is included with this package, though
  170. + it doubtless will need hacking to make it work on your system.  This
  171. + feature is unlikely to work on MSDOS.
  172. + 
  173. X  Use "make ljdump" to build the "ljdump" program.  This is useful for
  174. X  debugging dvi by converting PCL to a semi-human-readable dump.
  175. X  
  176. ***************
  177. *** 72,78
  178. X  available to others too.
  179. X  
  180. X  
  181. - 
  182. X      -- Parag Patel <parag@sde.hp.com>
  183. X  
  184. X  
  185. X
  186. --- 83,88 -----
  187. X  available to others too.
  188. X  
  189. X  
  190. X      -- Parag Patel <parag@sde.hp.com>
  191. X  
  192. X  
  193. ***************
  194. *** 79,85
  195. X  
  196. X  --------------------REVISION-INFO----------------------
  197. X  
  198. ! 1.6    released on HP INTERX Contrib Tape and comp.sources.misc
  199. X  
  200. X  1.7    first bug-fix release
  201. X      files modified: Makefile README extern.h main.C readfont.C hp2686.h
  202. X
  203. --- 89,95 -----
  204. X  
  205. X  --------------------REVISION-INFO----------------------
  206. X  
  207. ! 1.6    released on HP INTEREX Contrib Tape and comp.sources.misc
  208. X  
  209. X  1.7    first bug-fix release
  210. X      files modified: Makefile README extern.h main.C readfont.C hp2686.h
  211. ***************
  212. *** 87,89
  213. X      version string slightly modified so say_hello() in main.C works
  214. X      also look for fonts such as /path/cmr7.300pk and cmr7.300gf
  215. X      allow overriding default font search path from Makefile
  216. X
  217. --- 97,108 -----
  218. X      version string slightly modified so say_hello() in main.C works
  219. X      also look for fonts such as /path/cmr7.300pk and cmr7.300gf
  220. X      allow overriding default font search path from Makefile
  221. + 
  222. + 1.8    use DVIFONTPATH env var instead of FONTPATH to search for fonts
  223. +     try running a script which runs Metafont to generate fonts on the fly
  224. +         (this only works under Unix right now)
  225. +     LaserJet+ cannot really handle 8-bit data - back to the old code
  226. +     dvi -v runs properly when strings are put into read-only memory
  227. +     Set -DUSE_DIRENT in the Makefile if you have <dirent.h> and not
  228. +         <ndir.h> or <sys/dir.h>
  229. +     dvi compiles and runs using C++ 3.0 now
  230. *** tmp/dirs.C    Fri Feb 22 14:57:30 1991
  231. --- dirs.C    Mon Aug 19 16:45:52 1991
  232. ***************
  233. *** 1,5
  234. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  235. ! static const char rcsid[] = "$Header: dirs.C,v 1.10 91/02/22 15:57:16 hmgr Exp $";
  236. X  
  237. X  // read font directory names into memory for fast traversal
  238. X  //
  239. X
  240. --- 1,5 -----
  241. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  242. ! static const char rcsid[] = "$Header: dirs.C,v 1.11 91/08/19 17:45:50 hmgr Exp $";
  243. X  
  244. X  // read font directory names into memory for fast traversal
  245. X  //
  246. ***************
  247. *** 12,18
  248. X  #define    d_name    name
  249. X  #else
  250. X  #ifdef    BSD
  251. ! #include <sys/dir.h>
  252. X  #else
  253. X  #include <ndir.h>
  254. X  #endif
  255. X
  256. --- 12,18 -----
  257. X  #define    d_name    name
  258. X  #else
  259. X  #ifdef    BSD
  260. ! #  include <sys/dir.h>
  261. X  #else
  262. X  #  ifdef USE_DIRENT
  263. X  #      include <dirent.h>
  264. ***************
  265. *** 14,20
  266. X  #ifdef    BSD
  267. X  #include <sys/dir.h>
  268. X  #else
  269. ! #include <ndir.h>
  270. X  #endif
  271. X  #endif
  272. X  
  273. X
  274. --- 14,24 -----
  275. X  #ifdef    BSD
  276. X  #  include <sys/dir.h>
  277. X  #else
  278. ! #  ifdef USE_DIRENT
  279. ! #      include <dirent.h>
  280. ! #  else
  281. ! #      include <ndir.h>
  282. ! #  endif
  283. X  #endif
  284. X  #endif
  285. X  
  286. ***************
  287. *** 82,88
  288. X      for (FIND *ent = findfirst(dos_dirpath, FA_DIREC); ent != NULL;
  289. X          ent = findnext())
  290. X  #else
  291. !     for (direct * ent = readdir(dir); ent != NULL; ent = readdir(dir))
  292. X  #endif
  293. X      {
  294. X          char *s = strchr(ent->d_name, '.');
  295. X
  296. --- 86,96 -----
  297. X      for (FIND *ent = findfirst(dos_dirpath, FA_DIREC); ent != NULL;
  298. X          ent = findnext())
  299. X  #else
  300. ! #  ifdef USE_DIRENT
  301. !     for (dirent *ent = readdir(dir); ent != NULL; ent = readdir(dir))
  302. ! #  else
  303. !     for (direct *ent = readdir(dir); ent != NULL; ent = readdir(dir))
  304. ! #  endif
  305. X  #endif
  306. X      {
  307. X          char *s = strchr(ent->d_name, '.');
  308. *** tmp/dvi.1    Fri Feb 22 14:53:53 1991
  309. --- dvi.1    Mon Aug 19 16:41:17 1991
  310. ***************
  311. *** 1,5
  312. X  .\" Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  313. ! .\" $Header: dvi.1,v 1.29 91/02/22 15:53:38 hmgr Exp $
  314. X  .TH DVI 1 unsupported
  315. X  .ad b
  316. X  .SH NAME
  317. X
  318. --- 1,5 -----
  319. X  .\" Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  320. ! .\" $Header: dvi.1,v 1.30 91/08/19 17:41:15 hmgr Exp $
  321. X  .TH DVI 1 unsupported
  322. X  .ad b
  323. X  .SH NAME
  324. ***************
  325. *** 117,123
  326. X  should look for either the GF or PK format font files.
  327. X  The directories should have subdirectories for various magnifications.
  328. X  Overrides the value of the environment var
  329. ! .B FONTPATH
  330. X  if it exists.
  331. X  The separator between the various path is platform dependent.
  332. X  See the section on PLATFORM DEPENDENCIES for details.
  333. X
  334. --- 117,123 -----
  335. X  should look for either the GF or PK format font files.
  336. X  The directories should have subdirectories for various magnifications.
  337. X  Overrides the value of the environment var
  338. ! .B DVIFONTPATH
  339. X  if it exists.
  340. X  The separator between the various path is platform dependent.
  341. X  See the section on PLATFORM DEPENDENCIES for details.
  342. ***************
  343. *** 196,202
  344. X  It searches along a default directory path for a printer
  345. X  to find the necessary fonts.
  346. X  The environment variable
  347. ! .B FONTPATH
  348. X  or the
  349. X  .B \-d
  350. X  option
  351. X
  352. --- 196,202 -----
  353. X  It searches along a default directory path for a printer
  354. X  to find the necessary fonts.
  355. X  The environment variable
  356. ! .B DVIFONTPATH
  357. X  or the
  358. X  .B \-d
  359. X  option
  360. ***************
  361. *** 201,207
  362. X  .B \-d
  363. X  option
  364. X  may be used to override this if desired.
  365. ! The default FONTPATHs are listed in the PRINTER DEPENDENCIES section below.
  366. X  .PP
  367. X  The GF format is part of the normal output from the Metafont program.
  368. X  The PK format is a packed version of the GF file and is
  369. X
  370. --- 201,207 -----
  371. X  .B \-d
  372. X  option
  373. X  may be used to override this if desired.
  374. ! The default DVIFONTPATHs are listed in the PRINTER DEPENDENCIES section below.
  375. X  .PP
  376. X  The GF format is part of the normal output from the Metafont program.
  377. X  The PK format is a packed version of the GF file and is
  378. ***************
  379. *** 307,313
  380. X  Other commands may be supported in the future.
  381. X  .SH PLATFORM DEPENDENCIES
  382. X  The separator between the component parts
  383. ! in either the FONTPATH environment variable
  384. X  or the optional fontpath specification is platform dependent.
  385. X  Default separator for UNIX is the colon character,
  386. X  for MSDOS it is the semicolon character.
  387. X
  388. --- 307,313 -----
  389. X  Other commands may be supported in the future.
  390. X  .SH PLATFORM DEPENDENCIES
  391. X  The separator between the component parts
  392. ! in either the DVIFONTPATH environment variable
  393. X  or the optional fontpath specification is platform dependent.
  394. X  Default separator for UNIX is the colon character,
  395. X  for MSDOS it is the semicolon character.
  396. ***************
  397. *** 321,327
  398. X  .br
  399. X  Default options: page-reversal on, portrait
  400. X  .br
  401. ! Default FONTPATH for UNIX:
  402. X  /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  403. X  .br
  404. X  Default FONTPATH for MSDOS:
  405. X
  406. --- 321,327 -----
  407. X  .br
  408. X  Default options: page-reversal on, portrait
  409. X  .br
  410. ! Default DVIFONTPATH for UNIX:
  411. X  /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  412. X  .br
  413. X  Default DVIFONTPATH for MSDOS:
  414. ***************
  415. *** 324,330
  416. X  Default FONTPATH for UNIX:
  417. X  /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  418. X  .br
  419. ! Default FONTPATH for MSDOS:
  420. X  /usr/lib/tex/fontbits/laser;/usr/lib/tex/fnt;/usr/local/tex/fontbits/laser
  421. X  .TP
  422. X  .B HP33440 LaserJetII ljII lj2 laser2 laserII default
  423. X
  424. --- 324,330 -----
  425. X  Default DVIFONTPATH for UNIX:
  426. X  /usr/lib/tex/fontbits/laser:/usr/lib/tex/fnt:/usr/local/tex/fontbits/laser
  427. X  .br
  428. ! Default DVIFONTPATH for MSDOS:
  429. X  /usr/lib/tex/fontbits/laser;/usr/lib/tex/fnt;/usr/local/tex/fontbits/laser
  430. X  .TP
  431. X  .B HP33440 LaserJetII ljII lj2 laser2 laserII default
  432. ***************
  433. *** 336,342
  434. X  .br
  435. X  Default options: page-reversal off, portrait
  436. X  .br
  437. ! Default FONTPATH: <same as LJ+>
  438. X  .TP
  439. X  .B HP33447 LaserJetIID ljIId lj2d laser2D laserIID
  440. X  HP LaserJetIID \-
  441. X
  442. --- 336,342 -----
  443. X  .br
  444. X  Default options: page-reversal off, portrait
  445. X  .br
  446. ! Default DVIFONTPATH: <same as LJ+>
  447. X  .TP
  448. X  .B HP33447 LaserJetIID ljIId lj2d laser2D laserIID
  449. X  HP LaserJetIID \-
  450. ***************
  451. *** 344,350
  452. X  .br
  453. X  Default options: page-reversal off, portrait, double-sided vertical binding
  454. X  .br
  455. ! Default FONTPATH: <same as LJ+>
  456. X  .TP
  457. X  .B HP2684 JumboJet lj2000 laser2000 lj2k
  458. X  HP LaserJet 2000 \-
  459. X
  460. --- 344,350 -----
  461. X  .br
  462. X  Default options: page-reversal off, portrait, double-sided vertical binding
  463. X  .br
  464. ! Default DVIFONTPATH: <same as LJ+>
  465. X  .TP
  466. X  .B HP2684 JumboJet lj2000 laser2000 lj2k
  467. X  HP LaserJet 2000 \-
  468. ***************
  469. *** 353,359
  470. X  .br
  471. X  Default options: page-reversal off, portrait, double-sided vertical binding
  472. X  .br
  473. ! Default FONTPATH: <same as LJ+>
  474. X  .SH FILES
  475. X  .nf
  476. X  /usr/lib/tex/fontbits/<printer>/<magdirs>/<PK fonts>
  477. X
  478. --- 353,359 -----
  479. X  .br
  480. X  Default options: page-reversal off, portrait, double-sided vertical binding
  481. X  .br
  482. ! Default DVIFONTPATH: <same as LJ+>
  483. X  .SH FILES
  484. X  .nf
  485. X  /usr/lib/tex/fontbits/<printer>/<magdirs>/<PK fonts>
  486. *** tmp/dvi.C    Fri Feb 22 14:57:47 1991
  487. --- dvi.C    Mon Aug 19 16:46:03 1991
  488. ***************
  489. *** 1,5
  490. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  491. ! static const char rcsid[] = "$Header: dvi.C,v 1.24 91/02/22 15:57:33 hmgr Exp $";
  492. X  
  493. X  // dvi scanning routines
  494. X  //
  495. X
  496. --- 1,5 -----
  497. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  498. ! static const char rcsid[] = "$Header: dvi.C,v 1.25 91/08/19 17:46:00 hmgr Exp $";
  499. X  
  500. X  // dvi scanning routines
  501. X  //
  502. *** tmp/extern.h    Fri May 17 15:28:16 1991
  503. --- extern.h    Thu Oct 10 10:15:55 1991
  504. ***************
  505. *** 1,5
  506. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  507. ! // $Header: extern.h,v 1.25 91/05/17 16:28:17 hmgr Exp $
  508. X  
  509. X  // externs for various LaserJet+ DVI filter functions
  510. X  //
  511. X
  512. --- 1,5 -----
  513. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  514. ! // $Header: extern.h,v 1.26 91/09/13 16:14:20 hmgr Exp $
  515. X  
  516. X  // externs for various LaserJet+ DVI filter functions
  517. X  //
  518. ***************
  519. *** 94,100
  520. X  #if FREE_TAKES_CHAR
  521. X  inline void  strfree(const char *s) { if (s != NULL) free((char *)s); }
  522. X  #else
  523. ! inline void  strfree(const char *s) { if (s != NULL) free((const void *)s); }
  524. X  #endif
  525. X  inline char *strdup(const char *s)
  526. X      { return s != NULL ? strcpy((char*)malloc(strlen(s) + 1), s) : NULL; }
  527. X
  528. --- 94,100 -----
  529. X  #if FREE_TAKES_CHAR
  530. X  inline void  strfree(const char *s) { if (s != NULL) free((char *)s); }
  531. X  #else
  532. ! inline void  strfree(const char *s) { if (s != NULL) free((void *)s); }
  533. X  #endif
  534. X  inline char *strdup(const char *s)
  535. X      { return s != NULL ? strcpy((char*)malloc(strlen(s) + 1), s) : NULL; }
  536. *** tmp/gffont.C    Fri Feb 22 14:58:20 1991
  537. --- gffont.C    Mon Aug 19 16:45:55 1991
  538. ***************
  539. *** 1,5
  540. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  541. ! static const char rcsid[] = "$Header: gffont.C,v 1.20 91/02/22 15:58:04 hmgr Exp $";
  542. X  
  543. X  // read font data from the METAFONT GF (generic font) files
  544. X  //
  545. X
  546. --- 1,5 -----
  547. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  548. ! static const char rcsid[] = "$Header: gffont.C,v 1.21 91/08/19 17:45:52 hmgr Exp $";
  549. X  
  550. X  // read font data from the METAFONT GF (generic font) files
  551. X  //
  552. ***************
  553. *** 85,95
  554. X  
  555. X      long dsize = getsval(4, fp);
  556. X      debug(4, "GF designsize=%ld", dsize);
  557. !     if (f.basename != NULL && dsize >> 4 != f.designsize)
  558. !     if (dochecksum && dsize != 0 && f.designsize != 0)
  559. !         quit("Designsize in DVI and GF file %s does not match", f.path);
  560. !     else
  561. !         warn("Designsize in DVI and GF file %s does not match", f.path);
  562. X  
  563. X      // check the checksum (!)
  564. X      long check = getuval(4, fp);
  565. X
  566. --- 85,91 -----
  567. X  
  568. X      long dsize = getsval(4, fp);
  569. X      debug(4, "GF designsize=%ld", dsize);
  570. !     // do not bother checking the designsize - it seems pointless
  571. X  
  572. X      // check the checksum (!)
  573. X      long check = getuval(4, fp);
  574. *** tmp/global.C    Fri Feb 22 14:57:10 1991
  575. --- global.C    Mon Aug 19 16:42:34 1991
  576. ***************
  577. *** 1,5
  578. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  579. ! static const char rcsid[] = "$Header: global.C,v 1.24 91/02/22 15:56:57 hmgr Exp $";
  580. X  
  581. X  // Global variables for DVI filter.
  582. X  // All globally visible variables are here.
  583. X
  584. --- 1,5 -----
  585. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  586. ! static const char rcsid[] = "$Header: global.C,v 1.25 91/08/19 17:42:32 hmgr Exp $";
  587. X  
  588. X  // Global variables for DVI filter.
  589. X  // All globally visible variables are here.
  590. ***************
  591. *** 119,125
  592. X      char *str;
  593. X      if (fontpath == NULL)
  594. X      {
  595. !     str = getenv("FONTPATH");
  596. X      if (str != NULL && *str != '\0')
  597. X          fontpath = str;
  598. X      }
  599. X
  600. --- 119,127 -----
  601. X      char *str;
  602. X      if (fontpath == NULL)
  603. X      {
  604. !     str = getenv("DVIFONTPATH");
  605. !     if (str == NULL || *str == '\0')
  606. !         str = getenv("FONTPATH");    // for backward-compatibility - sorry!
  607. X      if (str != NULL && *str != '\0')
  608. X          fontpath = str;
  609. X      }
  610. *** tmp/hp2686.C    Fri Feb 22 14:56:06 1991
  611. --- hp2686.C    Mon Aug 19 16:46:06 1991
  612. ***************
  613. *** 1,5
  614. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  615. ! static const char rcsid[] = "$Header: hp2686.C,v 1.20 91/02/22 15:55:21 hmgr Exp $";
  616. X  
  617. X  // HP2686 LaserJet+ and LaserJetII device-specific functions.
  618. X  // The various Reference Manuals should be consulted for more
  619. X
  620. --- 1,5 -----
  621. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  622. ! static const char rcsid[] = "$Header: hp2686.C,v 1.21 91/08/19 17:46:04 hmgr Exp $";
  623. X  
  624. X  // HP2686 LaserJet+ and LaserJetII device-specific functions.
  625. X  // The various Reference Manuals should be consulted for more
  626. ***************
  627. *** 66,74
  628. X  //
  629. X  const char *HP2686::char2dev(int ch, int &len)
  630. X  {
  631. !     static char buf[20];
  632. !     if ((ch >= 32 && ch <= 127) || ch >= 160)
  633. !     sprintf(buf, "%c", ch);
  634. X      else
  635. X      sprintf(buf, "\033&p1X%c", ch);
  636. X      len = strlen(buf);
  637. X
  638. --- 66,82 -----
  639. X  //
  640. X  const char *HP2686::char2dev(int ch, int &len)
  641. X  {
  642. !     static char buf[2];
  643. !     // the LaserJet Plus can't really handle full 8-bit fonts.
  644. !     // it can handle only character codes 33-127 and 160-255
  645. !     // we'll map as many of these as possible on a lowest-code first basis
  646. !     buf[0] = buf[1] = 0;
  647. !     if (ch <= 32)
  648. !     buf[0] = ch + 160;
  649. !     else if (ch > 32 && ch <= 127)
  650. !     buf[0] = ch;
  651. !     else if (ch <= 190)
  652. !     buf[0] = ch + 65;
  653. X      else
  654. X      quit("LaserJet+ cannot handle true 8-bit fonts -- Sorry");
  655. X      len = 1;
  656. ***************
  657. *** 70,79
  658. X      if ((ch >= 32 && ch <= 127) || ch >= 160)
  659. X      sprintf(buf, "%c", ch);
  660. X      else
  661. !     sprintf(buf, "\033&p1X%c", ch);
  662. !     len = strlen(buf);
  663. !     if (ch == 0)
  664. !     len++;
  665. X      return buf;
  666. X  }
  667. X  
  668. X
  669. --- 78,85 -----
  670. X      else if (ch <= 190)
  671. X      buf[0] = ch + 65;
  672. X      else
  673. !     quit("LaserJet+ cannot handle true 8-bit fonts -- Sorry");
  674. !     len = 1;
  675. X      return buf;
  676. X  }
  677. X  
  678. ***************
  679. *** 219,227
  680. X  // 
  681. X  void HP2686::downchar(font &f, fontchar &g, int ch)
  682. X  {
  683. !     // describe the character and its font to the LaserJet
  684. !     printf("\033*c%ldd%dE", f.num, ch);
  685. !     downljchar(f, g, ch);
  686. X  }
  687. X  
  688. X  // this sets up this character in the LaserJet memory so that
  689. X
  690. --- 225,249 -----
  691. X  // 
  692. X  void HP2686::downchar(font &f, fontchar &g, int ch)
  693. X  {
  694. !     // describe the character and its font to the LaserJet Plus
  695. !     // remember, only codes 33-127 and 160-255 can be sent
  696. !     if (ch <= 32)
  697. !     {
  698. !     printf("\033*c%ldd%dE", f.num, ch + 160);
  699. !     downljchar(f, g, ch + 160);
  700. !     }
  701. !     else if (ch > 32 && ch <= 127)
  702. !     {
  703. !     printf("\033*c%ldd%dE", f.num, ch);
  704. !     downljchar(f, g, ch);
  705. !     }
  706. !     else if (ch <= 190)
  707. !     {
  708. !     printf("\033*c%ldd%dE", f.num, ch + 65);
  709. !     downljchar(f, g, ch + 65);
  710. !     }
  711. !     else
  712. !     quit("LaserJet+ cannot handle true 8-bit fonts -- Sorry!");
  713. X  }
  714. X  
  715. X  // this sets up this character in the LaserJet memory so that
  716. *** tmp/hp33440.C    Fri Feb 22 14:56:34 1991
  717. --- hp33440.C    Mon Aug 19 16:45:57 1991
  718. ***************
  719. *** 1,5
  720. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  721. ! // $Header: hp33440.C,v 1.13 91/02/22 15:56:21 hmgr Exp $
  722. X  
  723. X  // LaserJetII series device-specific functions.
  724. X  // The LaserJetII Reference Manual should be consulted for more
  725. X
  726. --- 1,5 -----
  727. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  728. ! // $Header: hp33440.C,v 1.15 91/08/19 17:45:54 hmgr Exp $
  729. X  
  730. X  // LaserJetII series device-specific functions.
  731. X  // The LaserJetII Reference Manual should be consulted for more
  732. ***************
  733. *** 16,22
  734. X  
  735. X  // initialize the LaserJet II
  736. X  HP33440::HP33440() :
  737. !     HP2686(257, 256, 32, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  738. X              -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  739. X  {
  740. X  }
  741. X
  742. --- 16,22 -----
  743. X  
  744. X  // initialize the LaserJet II
  745. X  HP33440::HP33440() :
  746. !     HP2686(257, 256, 16, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  747. X              -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  748. X  {
  749. X  }
  750. ***************
  751. *** 19,24
  752. X      HP2686(257, 256, 32, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  753. X              -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  754. X  {
  755. X  }
  756. X  
  757. X  // LaserJetIID:
  758. X
  759. --- 19,49 -----
  760. X      HP2686(257, 256, 16, 32, 300, HP2686_HOFFSET, HP2686_VOFFSET,
  761. X              -128, 127, -128, 127, 128, 128, HP2686_FPATH)
  762. X  {
  763. + }
  764. + 
  765. + // convert a character number to something that the device can deal with
  766. + // for a LaserJet II
  767. + //
  768. + const char *HP33440::char2dev(int ch, int &len)
  769. + {
  770. +     static char buf[20];
  771. +     if ((ch >= 32 && ch <= 127) || ch >= 160)
  772. +     sprintf(buf, "%c", ch);
  773. +     else
  774. +     sprintf(buf, "\033&p1X%c", ch);
  775. +     len = strlen(buf);
  776. +     if (ch == 0)
  777. +     len++;
  778. +     return buf;
  779. + }
  780. + 
  781. + // download a character for a particular font for the LaserJet II
  782. + // 
  783. + void HP33440::downchar(font &f, fontchar &g, int ch)
  784. + {
  785. +     // describe the character and its font to the LaserJet II
  786. +     printf("\033*c%ldd%dE", f.num, ch);
  787. +     downljchar(f, g, ch);
  788. X  }
  789. X  
  790. X  // LaserJetIID:
  791. *** tmp/hp33440.h    Fri Feb 22 14:58:53 1991
  792. --- hp33440.h    Mon Aug 19 16:46:12 1991
  793. ***************
  794. *** 1,5
  795. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  796. ! // $Header: hp33440.h,v 1.8 91/02/22 15:58:41 hmgr Exp $
  797. X  
  798. X  // LaserJetII series device-specific definitions.
  799. X  // The LaserJetII Reference Manual should be consulted for more
  800. X
  801. --- 1,5 -----
  802. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  803. ! // $Header: hp33440.h,v 1.9 91/08/19 17:46:06 hmgr Exp $
  804. X  
  805. X  // LaserJetII series device-specific definitions.
  806. X  // The LaserJetII Reference Manual should be consulted for more
  807. ***************
  808. *** 16,23
  809. X      HP33440(int maxf, int maxc, int maxpg, int maxld, int res,
  810. X              int ho, int vo, int fhmn, int fhmx, int fvmn, int fvmx,
  811. X              int fwd, int fhg, char *deffp) :
  812. !     HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  813. !         fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  814. X  public:
  815. X      HP33440();
  816. X  };
  817. X
  818. --- 16,23 -----
  819. X      HP33440(int maxf, int maxc, int maxpg, int maxld, int res,
  820. X              int ho, int vo, int fhmn, int fhmx, int fvmn, int fvmx,
  821. X              int fwd, int fhg, char *deffp) :
  822. !         HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  823. !             fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  824. X  public:
  825. X      const char *char2dev(int ch, int &len);
  826. X      void downchar(font &f, fontchar &g, int ch);
  827. ***************
  828. *** 19,24
  829. X      HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  830. X          fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  831. X  public:
  832. X      HP33440();
  833. X  };
  834. X  
  835. X
  836. --- 19,26 -----
  837. X          HP2686(maxf, maxc, maxpg, maxld, res, ho, vo,
  838. X              fhmn, fhmx, fvmn, fvmx, fwd, fhg, deffp) { }
  839. X  public:
  840. +     const char *char2dev(int ch, int &len);
  841. +     void downchar(font &f, fontchar &g, int ch);
  842. X      HP33440();
  843. X  };
  844. X  
  845. *** tmp/main.C    Fri May 17 15:28:21 1991
  846. --- main.C    Fri Sep 27 15:13:37 1991
  847. ***************
  848. *** 1,5
  849. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  850. ! static const char rcsid[] = "$Header: main.C,v 1.32 91/05/17 16:28:22 hmgr Exp $";
  851. X  
  852. X  // TeX DVI filter main() - just parses arguments and calls functions
  853. X  //
  854. X
  855. --- 1,5 -----
  856. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  857. ! static const char rcsid[] = "$Header: main.C,v 1.33 91/08/19 17:45:57 hmgr Exp $";
  858. X  
  859. X  // TeX DVI filter main() - just parses arguments and calls functions
  860. X  //
  861. ***************
  862. *** 7,13
  863. X  
  864. X  #include "defs.h"
  865. X  
  866. ! static char *const whatid = "@(#)dvi 1.7 (02 April 1991)";
  867. X  
  868. X  static void say_hello()
  869. X  {
  870. X
  871. --- 7,13 -----
  872. X  
  873. X  #include "defs.h"
  874. X  
  875. ! static char *const whatid = "@(#)dvi 1.8 (19 August 1991)";
  876. X  
  877. X  static void say_hello()
  878. X  {
  879. ***************
  880. *** 13,18
  881. X  {
  882. X      // hello message like (but unlike) TeX - the following mess should
  883. X      // strip out the revision number out of the build ID string "whatid"
  884. X      char *s = strchr(whatid, ' ');
  885. X      while (*s == ' ')
  886. X      s++;
  887. X
  888. --- 13,19 -----
  889. X  {
  890. X      // hello message like (but unlike) TeX - the following mess should
  891. X      // strip out the revision number out of the build ID string "whatid"
  892. +     mesg("TeX DVI filter version ");
  893. X      char *s = strchr(whatid, ' ');
  894. X      while (*s == ' ')
  895. X      s++;
  896. ***************
  897. *** 16,26
  898. X      char *s = strchr(whatid, ' ');
  899. X      while (*s == ' ')
  900. X      s++;
  901. !     char *t = s;
  902. !     while (*t != ' ' && *t != '$' && *t != '\0')
  903. !     t++;
  904. !     *t = '\0';
  905. !     mesg("TeX DVI filter version %s for ", s);
  906. X  }
  907. X  
  908. X  static long strtonum(char *s, char **ptr)
  909. X
  910. --- 17,25 -----
  911. X      char *s = strchr(whatid, ' ');
  912. X      while (*s == ' ')
  913. X      s++;
  914. !     while (*s != ' ' && *s != '$' && *s != '\0')
  915. !     mesg("%c", *s++);
  916. !     mesg(" for ");
  917. X  }
  918. X  
  919. X  static long strtonum(char *s, char **ptr)
  920. *** tmp/pkfont.C    Fri Feb 22 14:58:33 1991
  921. --- pkfont.C    Mon Aug 19 16:46:18 1991
  922. ***************
  923. *** 1,5
  924. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  925. ! static const char rcsid[] = "$Header: pkfont.C,v 1.21 91/02/22 15:58:17 hmgr Exp $";
  926. X  
  927. X  // read font data from the METAFONT PK (packed font) files
  928. X  //
  929. X
  930. --- 1,5 -----
  931. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  932. ! static const char rcsid[] = "$Header: pkfont.C,v 1.22 91/08/19 17:46:14 hmgr Exp $";
  933. X  
  934. X  // read font data from the METAFONT PK (packed font) files
  935. X  //
  936. ***************
  937. *** 67,77
  938. X  
  939. X      long dsize = getsval(4, fp);
  940. X      debug(4, "PK designsize=%ld", dsize);
  941. !     if (f.basename != NULL && dsize >> 4 != f.designsize)
  942. !     if (dochecksum && dsize != 0 && f.designsize != 0)
  943. !         quit("Designsize in DVI and PK file %s does not match", f.path);
  944. !     else
  945. !         warn("Designsize in DVI and PK file %s does not match", f.path);
  946. X  
  947. X      // check the checksum
  948. X      long check = getuval(4, fp);
  949. X
  950. --- 67,73 -----
  951. X  
  952. X      long dsize = getsval(4, fp);
  953. X      debug(4, "PK designsize=%ld", dsize);
  954. !     // do not bother checking the designsize - it seems pointless
  955. X  
  956. X      // check the checksum
  957. X      long check = getuval(4, fp);
  958. *** tmp/readfont.C    Mon May 20 15:12:45 1991
  959. --- readfont.C    Tue Oct 22 10:13:23 1991
  960. ***************
  961. *** 1,5
  962. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  963. ! static const char rcsid[] = "$Header: readfont.C,v 1.22 91/05/20 16:12:46 hmgr Exp $";
  964. X  
  965. X  // read font data from the METAFONT GF (generic font) files
  966. X  //
  967. X
  968. --- 1,5 -----
  969. X  // Copyright (c) 1991 by Parag Patel.  All Rights Reserved.
  970. ! static const char rcsid[] = "$Header: readfont.C,v 1.24 91/10/22 11:13:21 hmgr Exp $";
  971. X  
  972. X  // read font data from the METAFONT GF (generic font) files
  973. X  //
  974. ***************
  975. *** 4,9
  976. X  // read font data from the METAFONT GF (generic font) files
  977. X  //
  978. X  // by Parag Patel
  979. X  
  980. X  #include "defs.h"
  981. X  
  982. X
  983. --- 4,11 -----
  984. X  // read font data from the METAFONT GF (generic font) files
  985. X  //
  986. X  // by Parag Patel
  987. + //
  988. + // MF_SCRIPT hacks by Peter Marvit
  989. X  
  990. X  #include "defs.h"
  991. X  
  992. ***************
  993. *** 90,96
  994. X  // the information from the DVI file - we now have to actually read the
  995. X  // font file (GF or PK) to get the rest of the font's description
  996. X  // 
  997. ! void setupfont(font &f)
  998. X  {
  999. X      if (f.path != NULL)
  1000. X      if (tryfile(f, f.path, "", f.basename, ""))
  1001. X
  1002. --- 92,98 -----
  1003. X  // the information from the DVI file - we now have to actually read the
  1004. X  // font file (GF or PK) to get the rest of the font's description
  1005. X  // 
  1006. ! static boolean trysetupfont(font &f)
  1007. X  {
  1008. X      if (f.path != NULL)
  1009. X      if (tryfile(f, f.path, "", f.basename, ""))
  1010. ***************
  1011. *** 94,100
  1012. X  {
  1013. X      if (f.path != NULL)
  1014. X      if (tryfile(f, f.path, "", f.basename, ""))
  1015. !         return;
  1016. X  
  1017. X      // setup the font directory cache if we need to
  1018. X      if (pathlist.size() < 1)
  1019. X
  1020. --- 96,102 -----
  1021. X  {
  1022. X      if (f.path != NULL)
  1023. X      if (tryfile(f, f.path, "", f.basename, ""))
  1024. !         return TRUE;
  1025. X  
  1026. X      // setup the font directory cache if we need to
  1027. X      if (pathlist.size() < 1)
  1028. ***************
  1029. *** 105,111
  1030. X      Pathent & p = pathlist[i];
  1031. X  
  1032. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  1033. !         return;
  1034. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1035. X          return;
  1036. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1037. X
  1038. --- 107,113 -----
  1039. X      Pathent & p = pathlist[i];
  1040. X  
  1041. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  1042. !         return TRUE;
  1043. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1044. X          return TRUE;
  1045. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1046. ***************
  1047. *** 107,113
  1048. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  1049. X          return;
  1050. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1051. !         return;
  1052. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1053. X          return;
  1054. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1055. X
  1056. --- 109,115 -----
  1057. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ".pk"))
  1058. X          return TRUE;
  1059. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1060. !         return TRUE;
  1061. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1062. X          return TRUE;
  1063. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1064. ***************
  1065. *** 109,115
  1066. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1067. X          return;
  1068. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1069. !         return;
  1070. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1071. X          return;
  1072. X  
  1073. X
  1074. --- 111,117 -----
  1075. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ".gf"))
  1076. X          return TRUE;
  1077. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1078. !         return TRUE;
  1079. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1080. X          return TRUE;
  1081. X  
  1082. ***************
  1083. *** 111,117
  1084. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1085. X          return;
  1086. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1087. !         return;
  1088. X  
  1089. X      char ext[30];
  1090. X      sprintf(ext, ".%dpk", RESOLUTION);
  1091. X
  1092. --- 113,119 -----
  1093. X      if (tryfile(f, p.path, gfmagdir(p.dirs, f.mag), f.basename, ""))
  1094. X          return TRUE;
  1095. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ""))
  1096. !         return TRUE;
  1097. X  
  1098. X      char ext[30];
  1099. X      sprintf(ext, ".%dpk", RESOLUTION);
  1100. ***************
  1101. *** 116,122
  1102. X      char ext[30];
  1103. X      sprintf(ext, ".%dpk", RESOLUTION);
  1104. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1105. !         return;
  1106. X      sprintf(ext, ".%dgf", RESOLUTION);
  1107. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1108. X          return;
  1109. X
  1110. --- 118,124 -----
  1111. X      char ext[30];
  1112. X      sprintf(ext, ".%dpk", RESOLUTION);
  1113. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1114. !         return TRUE;
  1115. X      sprintf(ext, ".%dgf", RESOLUTION);
  1116. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1117. X          return TRUE;
  1118. ***************
  1119. *** 119,125
  1120. X          return;
  1121. X      sprintf(ext, ".%dgf", RESOLUTION);
  1122. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1123. !         return;
  1124. X      }
  1125. X      quit("Cannot find font file \"%s\" (at or near magnification %ld.%03ld) anywhere",
  1126. X          f.basename, f.mag / 1000, f.mag % 1000);
  1127. X
  1128. --- 121,127 -----
  1129. X          return TRUE;
  1130. X      sprintf(ext, ".%dgf", RESOLUTION);
  1131. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1132. !         return TRUE;
  1133. X      }
  1134. X      return FALSE;
  1135. X  }
  1136. ***************
  1137. *** 121,126
  1138. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1139. X          return;
  1140. X      }
  1141. X      quit("Cannot find font file \"%s\" (at or near magnification %ld.%03ld) anywhere",
  1142. X          f.basename, f.mag / 1000, f.mag % 1000);
  1143. X  }
  1144. X
  1145. --- 123,245 -----
  1146. X      if (tryfile(f, p.path, pkmagdir(p.dirs, f.mag), f.basename, ext))
  1147. X          return TRUE;
  1148. X      }
  1149. +     return FALSE;
  1150. + }
  1151. + 
  1152. + #ifdef MF_SCRIPT
  1153. + // The following routine is cribbed (with permission) from the fine "dvips"
  1154. + // package by Tomas Rokicki at Stanford U.
  1155. + //
  1156. + static int magstep(int n, int bdpi)
  1157. + {
  1158. +     register float t;
  1159. +     int neg = 0;
  1160. +     if (n < 0)
  1161. +     {
  1162. +     neg = 1;
  1163. +     n = -n;
  1164. +     }
  1165. +     if (n & 1)
  1166. +     {
  1167. +     n &= ~1;
  1168. +     t = 1.095445115;
  1169. +     }
  1170. +     else
  1171. +     t = 1.0;
  1172. +     while (n > 8)
  1173. +     {
  1174. +     n -= 8;
  1175. +     t = t * 2.0736;
  1176. +     }
  1177. +     while (n > 0)
  1178. +     {
  1179. +     n -= 2;
  1180. +     t = t * 1.2;
  1181. +     }
  1182. +     if (neg)
  1183. +     return (int)(0.5 + bdpi / t);
  1184. +     else
  1185. +     return (int)(0.5 + bdpi * t);
  1186. + }
  1187. + #endif
  1188. + 
  1189. + 
  1190. + // Try to get and set the fonts we need.  If it fails, it probably means 
  1191. + // we can't find the fonts and will have to make them.  The #ifdef MF_SCRIPT 
  1192. + // allows an attempted creation of fonts, using an extrenal script which 
  1193. + // should call MetaFont, and then a retry of the [hopefully created] fonts.
  1194. + //
  1195. + void setupfont(font &f)
  1196. + {
  1197. +     if (trysetupfont(f))
  1198. +     return;
  1199. + 
  1200. + #ifdef MF_SCRIPT
  1201. +     // The following code is cribbed (with permission) from the fine "dvips"
  1202. +     // package by Tomas Rokicki at Stanford U.
  1203. +     //
  1204. +     // First, the computation of magstep, stolen from dvips (makefont.c).
  1205. +     // This entire routine carefully lifted, though it works fine.
  1206. +     // 
  1207. +     int m, n, dpi, bdpi;
  1208. +     char magstepc[MAXPATHLEN + 1];
  1209. +     bdpi = RESOLUTION;
  1210. +     dpi = (int)f.mag * RESOLUTION / 1000;
  1211. + 
  1212. +     m = 0;
  1213. +     if (dpi < bdpi)
  1214. +     {
  1215. +     while (1)
  1216. +     {
  1217. +         m--;
  1218. +         n = magstep(m, bdpi);
  1219. +         if (n == dpi)
  1220. +         break;
  1221. +         if (n < dpi || m < -40)
  1222. +         {
  1223. +         m = 9999;
  1224. +         break;
  1225. +         }
  1226. +     }
  1227. +     }
  1228. +     else if (dpi > bdpi)
  1229. +     {
  1230. +     while (1)
  1231. +     {
  1232. +         m++;
  1233. +         n = magstep(m, bdpi);
  1234. +         if (n == dpi)
  1235. +         break;
  1236. +         if (n > dpi || m > 40)
  1237. +         {
  1238. +         m = 9999;
  1239. +         break;
  1240. +         }
  1241. +     }
  1242. +     }
  1243. +     if (m == 9999)
  1244. +     {
  1245. +     (void)sprintf(magstepc, "%d+%d/%d", dpi / bdpi, dpi % bdpi, bdpi);
  1246. +     }
  1247. +     else if (m >= 0)
  1248. +     {
  1249. +     (void)sprintf(magstepc, "magstep\\(%d.%d\\)", m / 2, (m & 1) * 5);
  1250. +     }
  1251. +     else
  1252. +     {
  1253. +     (void)sprintf(magstepc, "magstep\\(-%d.%d\\)", (-m) / 2, (m & 1) * 5);
  1254. +     }
  1255. + 
  1256. +     // Here is where we do the actually calling of the external script
  1257. +     // 
  1258. +     char buf[MAXPATHLEN + 1];
  1259. +     sprintf(buf, "%s %s %d %d %s\n", MF_SCRIPT, f.basename,
  1260. +         dpi, bdpi, magstepc);
  1261. +     system(buf);
  1262. +     if (trysetupfont(f))
  1263. +     return;
  1264. + #endif
  1265. + 
  1266. X      quit("Cannot find font file \"%s\" (at or near magnification %ld.%03ld) anywhere",
  1267. X          f.basename, f.mag / 1000, f.mag % 1000);
  1268. X  }
  1269. SHAR_EOF
  1270. chmod 0644 patch-1.7-1.8 ||
  1271. echo 'restore of patch-1.7-1.8 failed'
  1272. Wc_c="`wc -c < 'patch-1.7-1.8'`"
  1273. test 34592 -eq "$Wc_c" ||
  1274.     echo 'patch-1.7-1.8: original size 34592, current size' "$Wc_c"
  1275. fi
  1276. # ============= MakeTeXPK ==============
  1277. if test -f 'MakeTeXPK' -a X"$1" != X"-c"; then
  1278.     echo 'x - skipping MakeTeXPK (File already exists)'
  1279. else
  1280. echo 'x - extracting MakeTeXPK (Text)'
  1281. sed 's/^X//' << 'SHAR_EOF' > 'MakeTeXPK' &&
  1282. #!/bin/sh -x
  1283. #   @(#)$Header: MakeTeXPK,v 1.2 91/08/19 17:53:48 hmgr Exp $
  1284. #   @(#)Based on labrea.stanford.edu:/pub/dvips547.tar.Z dated Jan 27 02:14 size 244319
  1285. #
  1286. #   This script file makes a new TeX PK font, because one wasn't
  1287. #   found.  Parameters are:
  1288. #
  1289. #   name dpi bdpi magnification [mode]
  1290. #
  1291. #   `name' is the name of the font, such as `cmr10'.  `dpi' is
  1292. #   the resolution the font is needed at.  `bdpi' is the base
  1293. #   resolution, useful for figuring out the mode to make the font
  1294. #   in.  `magnification' is a string to pass to MF as the
  1295. #   magnification.  `mode', if supplied, is the mode to use.
  1296. #
  1297. #   Note that this file must execute Metafont, and then gftopk,
  1298. #   and place the result in the correct location for the PostScript
  1299. #   driver to find it subsequently.  If this doesn't work, it will
  1300. #   be evident because MF will be invoked over and over again.
  1301. #
  1302. #   Of course, it needs to be set up for your site.
  1303. #
  1304. # TEMPDIR needs to be unique for each process because of the possibility
  1305. # of simultaneous processes running this script.
  1306. TEMPDIR=/tmp/mtpk.$$
  1307. NAME=$1
  1308. DPI=$2
  1309. BDPI=$3
  1310. MAG=$4
  1311. MODE=$5
  1312. X
  1313. umask 0
  1314. X
  1315. if test "$MODE" = ""
  1316. then
  1317. X   if test $BDPI = 300
  1318. X   then
  1319. X      MODE=laser
  1320. X   elif test $BDPI = 1270
  1321. X   then
  1322. X      MODE=lino
  1323. X   else
  1324. X      echo "I don't know the mode for $BDPI"
  1325. X      echo "Have your system admin update MakeTeXPK"
  1326. X      exit 1
  1327. X   fi
  1328. fi
  1329. X
  1330. #  Something like the following is useful with TeX from hpdtl.ctgsc.hp.com
  1331. PATH=$PATH:/usr/lib/tex/bin
  1332. MFINPUTS=/usr/lib/tex/cm:/usr/lib/tex/mf:/usr/lib/tex/macros
  1333. export MFINPUTS
  1334. MAGDIR=`dc <<!
  1335. 4 k $DPI $BDPI / .0005 + 1000 * 0 k 1 / 3 k 1000 / p
  1336. !
  1337. `
  1338. DESTDIR=/usr/lib/tex/fontbits/$MODE/$MAGDIR
  1339. GFNAME=$NAME.$DPI'gf'
  1340. PKNAME=$NAME.'pk'
  1341. X
  1342. # Clean up on normal or abnormal exit
  1343. trap "cd /; rm -rf $TEMPDIR $DESTDIR/pktmp.$$" 0 1 2 15
  1344. X
  1345. X
  1346. if test ! -d $DESTDIR
  1347. then
  1348. X   mkdir $DESTDIR
  1349. fi
  1350. X
  1351. mkdir $TEMPDIR
  1352. cd $TEMPDIR
  1353. X
  1354. if test -r $DESTDIR/$PKNAME
  1355. then
  1356. X   echo "$DESTDIR/$PKNAME already exists!"
  1357. X   exit 0
  1358. fi
  1359. X
  1360. echo cmmf "\mode:=$MODE; mag:=$MAG; scrollmode; input $NAME" \\\</dev/null
  1361. cmmf "\mode:=$MODE; mag:=$MAG; scrollmode; input $NAME" </dev/null
  1362. if test ! -r $GFNAME
  1363. then
  1364. X   echo "Metafont failed for some reason on $GFNAME"
  1365. X   exit 1
  1366. fi
  1367. X
  1368. gftopk $GFNAME $PKNAME
  1369. X
  1370. # Install the PK file carefully, since others may be doing the same
  1371. # as us simultaneously.
  1372. X
  1373. mv $PKNAME $DESTDIR/pktmp.$$
  1374. cd $DESTDIR
  1375. mv pktmp.$$ $PKNAME
  1376. X
  1377. Xexit 0
  1378. SHAR_EOF
  1379. chmod 0555 MakeTeXPK ||
  1380. echo 'restore of MakeTeXPK failed'
  1381. Wc_c="`wc -c < 'MakeTeXPK'`"
  1382. test 2396 -eq "$Wc_c" ||
  1383.     echo 'MakeTeXPK: original size 2396, current size' "$Wc_c"
  1384. fi
  1385. exit 0
  1386.  
  1387. exit 0 # Just in case...
  1388. -- 
  1389. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  1390. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  1391. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  1392. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  1393.